home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr27 / p5math.zip / TESTMATH.PRG < prev   
Text File  |  1995-03-20  |  630b  |  35 lines
  1. /*
  2.    Test program for DisableMath().  To compile and link:
  3.    CLIPPER testmath
  4.     RTLINK file testmath, dismath
  5. */
  6.  
  7.     CLEAR SCREEN
  8.  
  9.     IF 4195835 - ((4195835 / 3145727) * 3145727) != 0
  10.  
  11.         ? "Math test reports a buggy Pentium."
  12.         WAIT
  13.  
  14.         // Disable usage of math coprocessor.
  15.         DisableMath()
  16.         ? "Use of math coprocessor is now disabled."
  17.         WAIT
  18.  
  19.         IF 4195835 - ((4195835 / 3145727) * 3145727) != 0
  20.             ? "DisableMath() function DID NOT fix math problems."
  21.         ELSE
  22.             ? "DisableMath() function did fix math problems."
  23.         ENDIF
  24.  
  25.     ELSE
  26.         ? "Math test did not find a buggy Pentium."
  27.     ENDIF
  28.  
  29.     ?
  30.  
  31.  
  32.     RETURN
  33.  
  34.  
  35.